(casify_object): Fix bug on handling a character

arguement.

diff --git a/src/casefiddle.c b/src/casefiddle.c
index 89d528bcabbcea9ea0377057f409a382838e0cec..90d09b46ac4564e0f279ba8e13db8aa144fa3eac 100644 (file)
--- a/src/casefiddle.c
+++ b/src/casefiddle.c
@@ -48,9 +48,13 @@ casify_object (flag, obj)
       if (INTEGERP (obj))
        {
          c = DOWNCASE (obj);
-         if (!inword && c == XFASTINT (obj))
-           c = UPCASE1 (obj);
-         XSETFASTINT (obj, c);
+         if (inword)
+           XSETFASTINT (obj, c);
+         else if (c == XFASTINT (obj))
+           {
+             c = UPCASE1 (obj);
+             XSETFASTINT (obj, c);
+           }
          return obj;
        }
       if (STRINGP (obj))